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HardCore 

WriTTon,  Conceived  ond  Produced  by 

Brion  L  Crosthiuaite 

This  is  issue  one  of  what  I  hope  to  be  a  gt  owing  phenomena,  and,  as  the  commodore  128.  and 
commodore  1280  haue  long  since  uanished  from  the  shelues  of  retail  outlets  ll  bought  Toys  R  Us' 
last  t128D  personalgi  and  the  readily  aualladle  software  slooily  dwindles  for  the  128  and  64,  an  inlet 
for  the  end-user,  fl  reference  to  suppliers'  addresses,  u.ihat  they  carry,  uiho  fixes  u^hat,  and  u^ho  is 
in  their  basements  u»t  iting  the  softu^are  of  tomorrou.i.  I  don't  mant  to  strike  paranoia  in  the  hearts 
of  the  8  bit-die-hards  out  there  that  the  commodore  uniuerse  as  a  whole  will  be  suiallowed  into 
obliuion,  but  let's  face  it  I  can't  think  off  hand  where  to  get  a  copy  of  Abacus's  CflO  Pak  128.  This 
will  also  be  a  place  for  the  Peop^,  a  soap  bo«,  high  horse,  so  on  and  et  cetera,  fl  place  for  technical 
information.  Is  DieHaal  the  final  frontier?  No,  just  a  doorway  to  another  frontier,  and  another  and 
another  and  another.... 

This  issue  is  named  HardCore—  that's  me,  I  started  in  1983  on  an  IIP3000  mainframe,  I'ue 
programmed  IBMs,  Rtaris,  Texas  Instruments,  Timex  Sinclairs,  Lasers,  Franklins,  Apples  -you 
name  it,  i  haue  probably  done  smnetfm^  on  it.    My  personal  f auorite  are  the  commodores  {look  at 


your  equipment  if  it  has  a  capital 
*'("  It  was  made  for  the  Amiga}. 
i  program  in  BHStC  primarily,  and 
with  cause—  you  can  list  my 
program  and  alter  it  with  ease. 
The  days  of  the  computer 
resident  language  are  almost 
gone,  however,  who  euer  bought 
an  IBM  or  Kaypro  that  didn't 
come  with  a  copy  of  either  (M 
Basic,  MIfrosQft  BBSU;  or 
mmm  \  have  done  EodtJU 
and  Fortran  77. 


-:''-VAv: 


Vhat  •!omput<r5  d<:«*5  Di<Haird  suppcrf?— 
conaodort.  (I  kncv  that  but  which 
on<5?}  THESE:       VIC20* 

eoMttodorc  64  ♦, 
Educator  64,  SX64«, 
DX64 

eo«»«d«rc  16  <• 
Plus4 

«<ittAodorc  129*  J,  Ci128D* 
fro««odor<  B12S, 
SupcrPET,  PET,  CB« 
•{■d«5c la im«r  time—  I  can't 
proml5«  any  more  than  if  I 
h«ar  something  I'M  print  it. 
Only  if  it's  fa«;tu»l}. 
•th««  ar^i  th*  machines  I 


The  home  computer  uias  a  fad,  or  uias  it?  The  home  computer  is  15  years  old  this  year,  took  the 
car  ouer  45  years  to  catch  on  and  another  30  to  get  improued  on.  How  many  people  do  you  know 
personaly  that  own  their  own  computer?  Now,  don't  count  your  friends  in  your  user  group.  Raise 
your  had  if  you  (km'i  haue  a  pocket  protector,  and  let's  not  count  those  with  their  calculators 
strapped  to  their  belts!  Ok,  you  know  someone  from  work  who  has  an  Epson  IBM  compatible,  but 
he  doesn't  do  much  more  than  run  Test  driue  on  it,  and  once  in  a  blue  moon  writes  something  with 
the  wordprocessor  he  bought  for  his  wife,  who  long  ago  forgot  she  had  it.  Now,  I  personaly  think 
that  eULBasit  should  be  built  into  the  machine  and  the  so  the  user  would  haue  to  make  an  effort  to 
purge  it  from  memory  in  order  to  boot  anything  other  than  DOS.  {get  used  to  it  I  insert  my  personal 
opinion  in  where  euer  the  heck  I  feel  like  It  euen  in  the  middle  of  my  own  personal  opinions-  Vou 
know,  speed  Is  a  factor,  that's  why  you  bought  that  TURBO  cart.,  and  sure  the  new  IBMs  are  fast, 
after  you  boot  the  system,  load  DOS,  internalize  your  driue  and  boot  your  OpSVS...  ok,  ok  worst  case 
scenario,  but  hay,  all  that  stuff  happens  automatically  when  you  turn  on  your  commodore,  euen  the 
UIC-2B  does  that!}.  Back  to  what  I  was  trying  to  get  at,  if  you  turned  your  DOS  machine  on  and  you 
were  in  BflSIC  you  might  be  tempted  to  program,  seems  to  me  if  you  were  to  lazy  to  load  it  up,  it 
would  be  easier  to  just  fool  around  with  BflSIC  than  purge  the  memory.... 


Ouer  the  years  great  hardware  and  software  haue  come  and  gone—  an/ come  again.  I  remember 
seeing  the  HEflRSflVIOQQ.  after,  I  had  bought  the  Currah  speech  64  and  the  Uoice  Command  Module 
from  EN6.  i  wanted  to  use  the  two  In  concert  but  I  was  unsuccessful  at  relocating  the  ML  of  either 
to  malce  it  happen—  actually,  now  that  I  look  back  my  method  was  one  doomed  from  the  start,  as  I 
had  no  way  of  executing  both  programs  at  the  same  time.  Naturally  when  I  saw  the  add  for  the 
USIQQQ  I  wanted  it.  Let's  face  it  both  the  USJQQQ  and  the  UfM  are  colossal  pieces  of  garbage  when  it 
comes  to  speech  recognition,  both  are  inadequate  in  euery  facet  of  responding  to  anything  I  euer 
said.  Now,  the  speech  synthesis  on  the  other  hand,  as  far  as  the  UiJQQQ  goes,  is  great!  There  are  no 
other  programs  to  load  to  make  it  read  text.  That  means  there  is  a  better  chance  that  your 
computer  zf/^talk.  I  got  mine  from  Tenex,  by  the  way—  29  bux  or  so. 

Lot's  of  oldies  but  goodies  are  appearing  almost  euery  place  that  seUs  a  fair  amount  of  CBM 
software,  remember  the  Uisihie  Sniar  System?  rm  waiting  to  find  the  electronic  house  stuff  that 
Protecto  used  to  carry.  The  uoice  box  for  the  128,  the  Chief  1571/20meg  Hard  driue  combo,  4040, 
MSO  1001—  ctimmoflore  computers  had  aH  the  best  goodies.  That's  what  I  want  to  find,  flctuaily 
addresses  and  prices,  of  who  has  found  an  abandoned  warehouse  fun  of  these  things.M  ok,  so  maybe 
they  really  are  gone  foreuer.  Just  recently  I  bought  a  VIC20,  a  VK  1520,  an  MPS803,  a  C-16,  and 
an  SII-64,  from  a  junkshop,  a  mail  order  house,  an  inlaw,  a  computer  store  and  the  same  inlaw, 
respectiuely. 

Enough  hoopla- 
hears  the  list  for  May; 
Creative  Mlcra  Designs 

15  Benton  Oriue 

P.O.  Box  646 

East  Longmeadow,  MR  01028 

a/Support:  1-413-525-0023 

FRH:  1-413-525-0147 

BBS:  1-413-525-0148 


Montgomery  Grant 

Mail  Order  Department 

33  34th  Street  Dept.  fl 

Brooklyn,  NV  11232 

Rio  Computers 

3430  EJropicana  flue.  *65 

Las  Uegas,  NU  89121 

1-702-454-7700 

Software  Support  International 

2700  N.E.  Rndresen  Rd. 

Suite  A-10 

Uancouuer,  liifl  98661 

1-800-356-1179 

Tenex  Computer  Express 

56800  Magnetic  Driue 

Mishawaka,  IN  46545-7481 

1-219-259-7051 

LOHOSTRR  k  L0RDSTRR128 

Softdisk  Publishing 

P.O.  Box  30008 

Shreueport.  LR  71130-0008 

FRH:  318-221-8870 

1-800-831-2694 

Software  Nut 

2534  S  Broad  St 

Philadelphia,  PR  19145 

Info:  1-215-462-2268 

FRH  1-215-339-5336 

The  erapevine  6roup 

3  Chestnut  St. 

Suffern,  NV  10901 

1-914-357-2424 

FRH:  1-914-357-6243 

Sciineiller  Systems 

Dept  R3 

25  Eastuiood  Road 

P.O.  B0K5964 

Rsheuille,  North  Carolina  28813 

1-704-274-4646 

BrluiaN 

P.O.  BOX129/58  Noble  Street 
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Take  note  this  is  just  a  list  for 
your  personal  information,  none 
of  the  businesses  paid  to  be 
listed,  these  are  not  adds,  I  am 
not  responsible  for  any 
misfortune  that  comes  your  way 
do  to  or  from  use  of  this 
information,  howeuer  if  you 
strike  it  big  please  send  me  50% 
off  any  and  all  profits. 
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Save  d  f^d  Die  Fascist  Scuroi 

CDinjQHEd  Btj 
Brian  L  Cresttiuaite 

Ah,  yes  the  iiif  juxious  S^AVE®  bug,  we've  ;all  he;ai\i  of  it  diid  yet  not 
everyone  has  gone  the  rmle  with  it.  Well  kiddies,  it's  not  just  true,  it's 
riunor--  what?  Well,  let's  3t;ai^t  at  tlie  beginning. 

1541.... 

Incorrect: 

SAVE"@f ilenanie",8--  unless  you  want  tlie  filename  to  be  @fileiiarne. 

SAVE"@:f  ilename",8--  will  replace  the  program,  but  you  are  taking  a 

chance  that  it  will  rness  up,  because  it's  not  the  proper  syntajj,  you  see 

most  disk  drives  ;are  kind  of  snobbish  ;and  you  have  to  talk  right  or  you 

sirnply  just  car/t  be  friends  with  them. 

SAxVE"@:0filename",8--  replaces  the  program  with  "Ofilename",  if  there  is 

orie  alre;ady--  :and  with  the  bug.  Other  wise  it  just  saves  a  program  with 

that  name. 

Correct: 

SAVE"@0:f  ilen;ame",8~  will  replace  the  old  program  with  the  new  one,  and 

if  there  is  no  old  one  it  mil  save  the  current  one  regardless.  This  is  the 

one  Commodore  tells  us  to  use. 

1571 

Tl-ie  same  for  newer  ROMs  like  v04  on.  C128D's  have  entirely  different 
chips  and  just  consider  it  v<)5,  your  cool.  Now  if  you  have  an  older  drive, 
get  new  chips  or  stay  away. 

1581 

Shodd  work  on  all...  {famous  last  words}. 

And  now  the  real  and  true  way  to  do  it,  ard  you'll  look  so  cool  to  your 
friends  they'll  worship  you  like  the  true  hunk  of  throbbing  programming 
Cod  or  Goddess  you  are-  er  something. 
CByi64/VIC20: 
10000A$="filename.":OPEN15,8,15;'s():%A$:CLOSE15:SAVEA^,8:VERIFYA4,8 

:EHD 

128/16/+4: 

10000A$="filename":SCRATCH(A$):DSAVE(A4):DVERIFYi:A$):END 

{or  use  the  CBM64  version,  other  wise  you'll  have  to  arjswer  tliat  .annoying 

question--  "ARE  YOG  SaRE?"~  Ho  Tm  a  blithering  idiot  and  evei-y 

decision  shoiid  be  left  to  you,  oh  mighty  computer.  A^ctualy  it's  good  to 

have  s:afe  guards. 


And  no?;  the  true  realit;/  and  nature  of  tilings.  I  rrje^in  youi-  doinq  thas 
becaiis.e  your  prograrrmng,  and  yc'ur  p;ai'anoid.  JuEt  because  you  piaid 
your  po77er  bill  on  time,  doesn't  me.an  thiey  aren't  going  to  discc^ntmue 
your  constant  flo'?/  of  hypenonic  electrons  for  just  one  brief  moment, 
long  enough  to  rnake  you  take  a  sMm  in  fresh  cement.  So  liere's  ^/hat  you 
really  should  do  and  '^/hy. 

lA$="filenamel" 

1000BLAH:BLAH"programguts":BLAH:BLAH 
lOlOSO  OH:AHD  SO  FORTHiET  CETERA 
lOZOSO/viETHINGABOaTASYNTAXEFJ^OR 
1030IMSO=GOOD:IBLOW=MY/MIND:EriD 

type: 
LISTl 

you  see: 
lA$="filenamel" 

mo^Te  the  cursor  up  over  the  "1"  after  filename  and  type  <2><RETaPJi>, 
then  'j.J'hat  I  do  is  list  1  again  place  the  cursor  o^rer  the  1  and  press 
<SPACE>  then  cursor  o^/er  to  the  spot  after  the  last  quote  and  type: 

:sAa$,8:vEa$,8<P£TaRri> 
the  upper  case  A&E  {often  referred  to  as  Asses  and  Elbo?/s}  are  just  the 
shifted /short  bjand  of  the  commodore.  {Don't  forget  the  colon  before  the 
s}.  Sa^/ing  in  increments,  next  file  3,  then  4  and  so  on. 

Also  keyboard  MACROs  can  also  be  used  {function  k^ys},  if  you  can 
define  function  keys  on  your  machine,  such  as  the  128,+4,  or  16,  or  a  54  or 
VIC  '?7ith  a  machine  code  program  or  cartridge  that  let's  you  define 
function  k^ys.  ie;  SIMONS'  BASIC,  Super  Expander,  etc.. 
REYl,"scR(a$):dSi:a$):dV(a$)"+cH(13) 

If,  howe^;er,  you  find  the  SAVE®  to  be  too  eloquent  to  pass  up  then  one 
last  bit  of  ad^;ice.  Gse  it  on  a  disk  with  only  one  file.  When  it  messes  up  it 
writes  o^-rsr  other  programs  and  tends  to  mo^;e  pointers  in  the  directory 
;around,if  not  lose  track  altogether,  especially  on  disk^  near  their  total 
capacity.  You  load  fileX  and  you  get  fileZ,  e^/'en  thought  they  both  appear 
on  the  directory,  and  fileZ  loads  fileZ. 

This  command  has  acquired  a  mystic,  mainly  through  the  grape^nne  and 
rumor  circuit.  Murder  has  a  similar  mystic  about  it,  but  I  don't  suggest 
you  use  either  on  as  a  programming  tool,  after  all  Rome  ^j/asn't  built  in  a 
day,  and  what  are  25  or  6  to  4?!"? 


hlORP  PROC 


^^\N  L  CROST 


55I\D  TPS 


RNAITE 


i  Use  the  search  feature  to  locate  words  that  sound  the  same, 
but  are  spelled  different  and  have  different  meanings,  like  there, 
their,  and  they  re-  to,  too,  and  two  Check  the  usage  by  reading 
the  sentence  then  move  on  to  the  next 

2  Word  processor  as  a  data  base  Write  a  list  using  a  mode  that 
makes  columns  or  line  the  letters  up  up  and  down  Most  word 
processors  do  this  with  the  resident  font  of  the  given  machine 
WYSIWYG  WPs  are  a  little  different,  for  instance  GEOS  you  d  use 
the  Commodore  lOpoint  font: 


Cats 

Flo%#er 

Tree 


HA 

OS  in. 
left. 


water  and  feed  daily 
water  daily 
water  Tuesday 


You  get  the  idea,  anyway  using  the  search  feature  you  can  find 
info,  update  with  insert  mode,  etc 

3  geoWritc  got  you  down?  here's  a  couple  of  things,  first  to  stop 
horizontal  scrolling  move  the  right  margin  over  to  'yi  or  so  and 
type  in  your  stuff  After  you  re  done  select  page  or  C=  V  and 
place  it  where  you  want  final  output  to  be  Secondly  if  you  have 
an  80  column  WP,  such  as  Paperback  Writer,  then  use  it,  convert 
the  file  with  the  text  grabber,  then  reformat  it  with  geoWrite 

I  ve  found  it  s  easier  to  fust  do  the  margin  move  thing,  because 
sometimes  things  tust  don  t  reformat  smoothly 

4  Remember,  embedding  control  codes  is  not  only  a  time 
consumer,  it  s  a  pain  in  the  rear  If  you  spent  more  than  $30  for 
your  WP  then  the  computer  should  do  all  the  dirty  work  for  you 
and  if  you  spent  more  than  $50-  then  it  had  better  have  not 
only  a  great  spell  checker,  but  a  great  thesaurus.   Any  more 
than  $60  it  had  better  do  graphics  When  I  say  do,  I  mean  do  The 
computer  does  the  dirty  work,  all  I  have  to  do  to  center  text  is 
hit  an  icon  or  menu--  what  I'm  trying  to  say  and  failing  so 
miserably  is,  the  computer  remembers  the  codes  so  you  don't 
have  to  At  the  top  of  my  screen  at  all  times  are  pull  down 
menus  and  iustif  ication  and  line  spacing  boxes  Every  thing  is 
right  here  (Im  using  geoWrite,  by  the  way) 

5  Always  update  your  work,  every  five  minutes  or  so-  no  mater 
what  you  are  doing,  WPing,  drawing,  programming  Why?  Ever 
heard  of  volatile  memory?  Unless  you  got  a  battery  backed  REU 
or  computer,  then  the  stuff  your  typing  is  at  the  mercy  of  your 
local  power  company  Even  if  you  have  battery  backup,  I 
strongly  suggest  updating  routinely,  as  you  well  know  things 
can  happen  Don  t  rely  on  an  REU 


I* 

6  This  leads  to  my  next  point.  GEOS  users,  put  all  your  stuff  in 
the  REU  except  the  document  you  re  working  on   I  spent  30 
minutes  on  a  document  and  the  power  went  off,  some  how  the 
changes  I  made  also  were  deleted  from  my  Drain  as  well,  as  I 
found  I  couldn  t  produce  anything  even  half  as  good  as  the 
original  changes 

7  Plan  to  spell  checK  alot  of  letters?  Add  the  state  abbreviations 
to  your  dictionary,  along  with  frequently  use  names  and 
terminology  You  might  even  iust  fill  a  document  with  these 
things  and  spell  chccK  it  and  add  the  stuff  as  you.  go  In  the 
future  your  spell  checking  will  go  faster,  the  computer  won  t 
have  to  wait  for  you  to  SKIP 

9  When  reformatting  text  under  WYSIWYG  conditions,  start  at 
the  last  page,  select  page  and  set  up  your  fonts  and  justification, 
line  spacing,  margins,  etc   Then  go  to  the  previous  page,  and  so 
on  until  you  have  done  the  whole  document  If  you  do  it  this 
way  you  won  t  have  to  overlap  your  work  and  everything  will 
get  done  accordingly  If  you  start  on  the  first  page,  going  from  a 
12point  to  a  Qpoint  font,  the  12point  on  the  next  page  w411  come 
onto  the  first  page  and  you  have  to  do  it  again,  and  the  i2point 
may  come  onto  the  page  again  If  you  go  to  a  larger  font  you  11 
push  some  of  the  first  page  onto  the  next  and  you  will  lOe 
formating  only  half  a  page  the  next  time,  because  half  {or 
however  much  moves  over}  the  page  is  already  formatted,  on  a 
large  document  you  11  lose  lots  of  ground  this  way  Anyway  you 
look  at  it  starting  at  the  last  page  always  saves  time  (Mow  if  all 
you  want  to  do  is  change  one  paragraph,  then  iust  do  that  one 
paragraph,  this  is  for  when  you  type  in  Commodore  lOpoint  or 
BSW  9point  at  51  to  get  info  in  quik  and  easy  on  GEOS  I  see  tip  31 ) 

9  Use  macros  In  geoWrite,  for  instance,  you  can  make  a  copy  of 
X  number  of  spaces  and  all  you  have  to  to  to  line  up  stuff, 
instead  of  typing  in  X  spaces  iust  hit  C=  T  your  spaces  will  take 
care  of  them  selves  You  can  do  any  rcpeditive  thing  in  this 
maner  See  manuals  for  info  and  ideas 

10  Use  unique  marker,  like  xvvx"  or  marker  as  markers,  to 
come  back  to  later,  use  search  to  locate  them  in  order 

11  Hay,  if  you  like  typesetting  the  old  fasioned  way,  use  what  you 
are  comfortable  with,  it  s  easier  for  some  people  to  do  those  long 
ago  memorized  key  stokes  to  format  a  document  However, 
learning  something  new  {and  old  also)  can  have  lot  s  of 
advantages.  Lots 


compiled  by 
Brian  L  Crosthwaite 

POKE  is  a  BASIC  statement  used  to  place  a  decimal  value  into  a  given  address;  poke 
53280,  e  places  the  value  zero  at  address  location  53290-  (This  will  change  the  64 
boarder  color  to  black)  peek,  on  the  other  hand  is  a  numeric  function  that  returns 
the  value  in  a  given  address  printpeekc 53288  >  will  return  a  zero,  because  we  POKEd  a 
8  in  this  location.     POKES  and  PEEKS  are  often  use  in  confunction  with  Boolean 
logic  to  place  a  value  into  a  location  with  out  changing  what's  there-  sorta- 

P0KEBV«  PEEKCBV>0R<2tBi  >-  recoghize  this?  essentially  what  you  have  is: 

BV«address  <on  hires  screen)  forMuiated  thus: 

8192i-INT<V/8>«328-«-8«INT<X/8>-i-VAND7 

BI»bit    info   2t7-(XIIN87> 

(Let's  not  get  into  this  right  now,  it's  not  what  I'm  talking  about  and  it's  in 

your  64  Programmers  Reference  Gntde). 

simply  put; 

take  address  BY,  look  into  it  to  see  what's  there,  combine  it  with  new  info 

Bl- 


1  8 

8 

1 

8  8  8  1  or 

i  B 

0  1  a  a  a 

1  8 

8 

1 

8  18  1 

8 

8R 

8 

«  8 

8  AND  8  « 

8 

8 

OR 

1 

«  1 

8  AND  1  s 

8 

1 

8R 

8 

-  1 

1  AND  8  « 

8 

i 

8R 

1 

=  1 

1  AND  1  s 

1 

ENOUGH  ALREADY! 

This  is  not  an  article  about  Boolean  Logic-  Although  if  you  can  hold  out  there 
should  be  one  next  issue  I  fUst  wanted  you  to  not  be  totally  fogged  when  you  see 
poKEseee,  PEEK (9660) 0R128.  (By  the  way  if  you  have  a  choice  between  a  straight  poke 
and  a  Boolean  iob,  do  the  Boolean,  it  leaves  tilings  set  up  ^st  the  same  as  before  the 
POKE  and  you  look  more  professional  when  you  fiave  more  control  over  your 
computer).  Here  they  are 

Print  at  or  PRIllTti>  or  CHAR  equivalent  (VIC20  &  CBM64) 

1888PRINTCHR«<14T>:reN  Clear  screen 
JBi8F0K£78i^R0:reM  RDw=Bta22  (UJO  or  0to24  C64> 
1828P0KE782,C0:reN  C0iUMn=eto21  <VIC>  or  eto39  <64> 
1838P0KE783,48:reM  clear  carry 
1848SVS69S28 : roM  Kernai  plot  routine 
leSOPRINT'Trinted  at"RO","CO 
in  a  subroutine: 

ieeeP0KE781 , RO : P0KE782 , CO : P0KE783 , 48 : SVS63S20 : RETURN 


6 UIC28 — + — + — + — + — CBi164 — + — +- 

Disable  RUN/STOP 

P0KE868,iee         P0KE8e8,239 


-C128- 


-C166+4— ♦—+—+-- 


P0KE888,iee 

or  PQKraes.n? 


P0KC886,183 


Enable      RUN/STOP 
PnifFllflft.tl2 


PQKE8fl8.237 


PQKE8fl8.11fl 


Disable  REST&RE 


PQKESeS.IBI 


P0ICE792,7 

P0KE792a93 

P0KE792a25 
or    POIfE792.9a 

xxxxxxxxxxx 

Enable      REST8RE 
P11KE792.173 

P0lfE792.71 

PQIfE792.B4 

SClCXltXXXXlCXX 

Disable    LIST 

P0KE775,223 

or 

P0KE775,191 
PnKE774.1&3 

<or    1)    P0KE775,i39 
or    PnKE774.ia9 

P0KE774,118 

Enable      LIST 

P0KE775,199 

Of* 

P0KE77S,167 
P0KE774.26 

P0KE775,8i 
or    P0lfE774.ai 

P0KE774.110 

Disable   RUN/STOP, 

RESTORE   keys   &  LIST    (beware !> 

POKEfiAA.234 

Enable   RUN/STOP, 

RESTORE  keys   a  LIS1 

POICE:fiBS.237: 

P0KE792.7i 

Disable   SAVE 

PfiKEfiia.73 

POKEfil9.24fi 

<or5B)    POKEBIB.ISB 

Enable      SAVE 

POKESis.iaa 

POKEai9.245 

<or237)P0KEaiB.7a 

PDirE81B.iB4 

Disable   LOAD 

poKESifi.iaa 

POKEaifi.157 

POKEBIBB 

POIfEai4.239 

Enable      LOAD 

POKCaifi . 73 

POKEaiB.lBS 

POICEBlB.iaa 

PaifEai4.74 

Disable   keyboard 
pfiKc:fi49 .  a 

POICEB49.B 

P0KE2592.a 

POKE 1343. a 

Disables   keyboard 

buffer 

POKES49.1 

Enable      keyboard 

a  buffer 

PQICCS49.1B 

POIfE2592.ia 

P0lfE1343.ia 

No  keys   repeat 
P0ICCfiSB.fi4 

P0lfEB5B.B4 

PaKE2594.B4 

POKE 1344. B4 

All   keys  repeat 
P0KC6Sfi,128 

P0KE6S0.i28 

P0KE2Sa4.2SS 

P0KEi344,JL28 

Enable   repeating   keys    ( 
EllK££Sfi.JI 


space,  delete  and  cursor  keys> 
PQKEB5B>fl PQKE25a4,J- 


PQKEi344vi- 


Clear  keyboard  buffer 

PoifEiaa.B POKE  188  JL 


PflKE2a8J- 


PillfEgSa.B 


Character   color    <x=8-7 
PnifEB4B.« 

Screen  color 

PnKE3Ba79.x 


on  VIC,  x«8-iS  the  rest) 
P0KE646ut PQKE24iOL 


PQKEi384uL. 


40c ol    P0KE53281,x 
POIfE53gai.«       flBgol    POKE .JL_ 


PnKrBS3fli.x 


Baar^J^tr  color 

POKE3Ba79.x 


-40^01    P0tCE53389,x 
pnKE53gaB.« 88c  a  I   PBKE .x_ 


bocksrounJ 

PnKEB53B5.x 


ReMOve  line  nuMbers  dur 

POKEgg.35 


ins  LIST 
P0KE22,35 


PnKEg4.37 


PBKE22.35 


Enable  line  nuHbers  during  LIST 
P0KE22,25  P0KE2,25 


P0KE24, 27 


P0KE22,25 


111026 — + — + — + — + — CBm4 — ♦ — + — + — ♦ — C128 — + — ♦ — + — + — Ci6&+4 — ♦ — + — + — 

Change  keyboard  buffer  size  <xs8toi0> 

BaK£iaa.v2 EllK£ia&.^Jc BI1K£2A8.wS poifggaa.^ 

Change   128    f-ke»s    into   64   f-ke»s 

pnifEaga.iaa 

Reinstate  default  128  f-keys 

PQKE828,i73 

Read  line  no.  of  data  statenent  on  error  <C64> 

PglMTPEE:K<fia)*g5fi»PgFlf(BA> 

Reset    64  or    128 

SVSPEEK  <fi5532  >  *25&»PEE1t  I  fiSSaa  ^ 

Hove  cursor  to  line  x  <x»l-25> 

PQKE2140I CaK£23S.ui 

Bit  Map  start  <x»6  6  8,8  8  8182> 

P0KE53272, (PCEK<53272>AND246)6Rx 

PQKE2fifl5  ■  <PEi:KCPfiflS>  AilDP4il>nPv 

Enable  high-resolution  graphics 

PQKE53265,5a 

Disable  high-resolution  graphics 

POKFsayfis.iss 

Enable   iwjlti-color   graphics 

P0KE5327e.2i6 

Disable  nulti-color  graphics 

BSKEsasza.^ 

Enable    standard   bit   map   Mode    <MUSt    follo«f  one   of   above) 

P0KE53265,PEEK(5326S>0RR32 
PnifFgift.Pggit<gis>iigag 

Disable  standard  bit  Map  Mode 

P0KE532eS, PEEK (53265 >AND223 

pnirrg  1 1; .  prrr  r  g  i  c  >  AMPgga 

Enable  Multi-color  bit  Map  Mode 

P0KC532e5 ,  P{:f:K<522G5>0R32  -■  P0KC5327B  ,  PCCK<S32Te>0Rie 

PQKE21B ,  PEEK<2i6>0Ri.6fl 

Disable  MUlti-color  bit  Map  Mode 

P0KE53265 , PEEK  <  53265  >  AND223 : P0KE5327e , PEEK ( 53276 ) AND239 
Plilf  Fg  i  C  ■  Pgrif  C  2  i  6  >  A  WD9S 


Plot  standard  bit  Map  <all> 

£01CEBV.^P£EK<BV10£<2tAI2. - 

Unplot  standard  bit  Map  Call) 

IFPEEK<BV>»<PEEK<BV>0R(?tBI>>THEHPQKEBV.<PrFK<BV>-<2tBI)) 

Redefine  RUN  key  &  HELP  key  128 

BANKIS :  8VSDEC<'*68EC">  ,  ,  8,  ,  «  "RUN" 

ftAmfi!i:ayaftEC("BaEC")  .  .9.  .  ."HELP" 

Load  directory  without  disturbing  prograM  in  MeMory 

PnKg44.PgEIC(46Wi:L0AD"S".8:LlST 

ReMove  directory  and  retrieve  prograM 

PnKE4fi.PEEIff4a)-l:PnifE44.a 

Poke   128   «findo%«s 

PaKE228,x  bottoM  <xs6  to  24) 
P0KE229,x  top     (x»0  to  24) 
P6KE236,x  left  <x=6-79,<39  46col>) 
P0KE231,x  right  <x=8-79<39  48col>) 


UIC2e — ♦ — ♦ — + — ♦ — CBH64 — ♦ — ♦ — ♦ — ♦ — C128 — ♦ — + — ♦ — + — Ci6&i^4 — ♦  —  ♦  — +- 

Enable  FAST  node  on  ±28  in  64  node 

PQKE532a6,255 


Disable 

FAST  Mode  on 

128  in  64  Mode 
P0KF5329fi.B 

Enable 

MUlti -color  character  Mode 

P0lfF5327e. 

PEEK<5327a>0R16 

Disable 

MUlti-color  character  Mode 

PQI(F5327a.PFFK^5327B)AND239 

Enable 

extended  color  Mode 

PQIfF532fi5. 

PEEKf532fi5)Oefi4 

Disable 

extended  color  Mode 

P0KF532fi5. 

PEEIf<532fi5)AND191 

Scroll 

left  or  right 

<x=8-7> 

P0KFS327fi. 

<  PEEK  <  53270  )AliD248)«x 

Scroll 

up  or  down  iy- 

=8-7) 

POKE532fi5 . 

< PEEK < 53265 ) AND24fi ) +u 

Sprites 

on  (n-8~7) 

P0KE532fi9. 

.PEEK<532fi9)0B<2«ii) 

Sprites 

Off  <n=e-7) 

POKESaZfifi. 

. PEEK<532fi9) ANn(255-2«n) 

Blank  the  screen 

P0KE53265, 
fir  P0KES326S. 

,PEEK<53265>AN0239 
.11 

Hove   cursor   to   x3B-39«    y-8-24 
PnifryH.»:PnifF3t4.u:PPIMT 


Reset  coMputer  with  LIST 

P0KE774, 226 : P0KE775, 252 
PilKE774.  fil :  PQIgE775  .  255 

Disable   question  nark   on   INPUT 

EOKEia-JIS 

Enable  question  nark  on  INPUT 


Cursor   speed    <0>*#astest,    255'slot«est> 
PnifESftags.^ 


Set  video  bank 

PiiKE5B57e .  <  PEEK  <  Sfi57B  >  AMD252  > Ottx 

Character  nenory  location  change  <a>0«  2,    A,    6,  8,  18,  12  or  14> 

PillgE53272.  <  PEEK  <  53272  >AiiP24a>ntta 


Set  screen  nenory 


POKE53272. <PEEK<53272>AMP15>0Ru 


Disable  R8H 


POKEZJT^A. 


Enable  ROM 


PQKE2i7JL 


Read  key  press 


PEEK<i87> PEEK<2i2) 


Ha  it  for  keypress 


P8KE198,8:IMIT198,1 
pnKrg«»i.a:iJAiT2fla.i 


Disable  shift/Connodore  key  covAination 
PnKFy47.fi4 


Enable  shift/Connodore  key  conbination 

P8KE247,8 


UIC2e — ♦ — ♦ — ♦ — + — CBH64 — + — ♦ — ♦ — ♦ — C128 — ♦ — ♦ — ♦ — ♦ — Ci6&'^4 — ♦ — + — ♦- 

Set  text  screen  character  memory 

P0KE2Ba4-  CPEEKC2fifl4^AtiPg4fl>nPt 

Return  to  text  screen 

P0KE2fia4,  CPEEK^2fia4>AliD24a^nP4 

Set   bit   Map   character   memory   screen    (x«8   to   255> 
paKE:2ea5,  ^PE:Er<2fia5)AHD24a^ogir 


Set  video  bank  <x-8  to  6> 


PQKE56576 ,  <  PEEK  <  56576  )  ftllP252  )  QRx 


Set  text  screen  MeMory  Cy^a  to  255> 


PQKE26e4.  <PEEK<26e4>ftHM5)QR^, 


Set  bit  Map  screen  MeMory  (y^a  to  255 > 


PQKE26e5 .  <PEEK<26e5>ftMPi5)QKt4, 


Change  the  look  of  the  128 ^s  88  coluMn  characters 

P8KE54784, 9 : PeKE54785 , 232 
— — - <or  231  or  ?33> 


Append  a  program  to  one  in  MeMory  on  128 

BLQftD"f  i  lenawe" .  Bfl .  P<PEEK<4624)^^256*PEEK<4625>-2>  :  PELETE2-1 

Restore  f-keys,  tabs  &  clear  screen 

BftHKi5:SYS48425 


Find  out  naMe  of  last  file  loaded 
SVS62913 


SYS62753 


C16&'t^4  title  screen 

Clear  cress,    set  nermai    window 


Print  title 

Set  screen  window  below  title 


ISflSfl  £V£5S4a2 

ISftlA  ERXMI-iiilA" 

taaga  syssagga 


Disable  Epyx  Fast  Load  cartridge 
PQKE77fl . lai ; PQKE77i , 164 


Re-ei^ab\«  C^'^x  Fas-t  Lf>ad  carlridsifr 

P8KE77e^ 186 : PeKE771, 223 
or  SV657ie4 


RediMonsion  arrays  (will  not  clear  other  variables) 

PQKE48,PEEK<47>:P0KE5e,PEEK<4e) 

Disable  UIC  Super-expander  upon  power  up,  leaves  3k  of  RAH  expand  intact 

5t5w4H18 
Enable  Turbo  Load  and  Save  cartridge  fr om  DISABLE 

5V6S7254 


Enable  Turbo  Load  and  Save  cartridge  fron  <RUII/STOP><RESTeRE> 


SVS572a7 


Turn  cursor  on 


SVS525ai 


Turn  cursor  off 


SVS52639 


Switch   to    lower   case   viode 
PQiCE5a272.2a 


Switch    to    upper    case    Mode 
PfllCF53?72,21 


Turn  off  screen  display 
Turn  on  screen  display 


parrsaPfts  PFricc!i3Pi;s>AiiD239 


P8KE53265^  PEEK(53265>eR16 


^ 


111028 — ♦ — ♦ — ♦ — -•• — CBH64 — ♦ — ♦ — ♦ — ♦ — C128 — ♦ — ♦ — ♦  — + — C16&^4 — ♦ — ♦ — -i- 

Clear  screen 


HoMe  cursor 

SV<i5872fi 

Hove  cursor  down 

SVS5951fi 

Scroll  screen  up 

SVfi59626 

Scroll  screen  down 

< beware!) 

SVS58848 

Insert  a  line 

fiVS59749 

Print  startup  nessase^  clear  BASIC 

SVS582fifi 

Coid  res^t   <eras^s 

pro^ram> 

SVSfi4738 

HarM  reset  ierasBs 

screen) 

fiVfifiS12fi 

Cursor  blink  rate  <r»8-255,  58»norMal> 

P0KE:5fi325.r 

Keyboard  input 
Uait  for  key  press 

Uait  for  key  release 

Wait  lor   ShTfT  key 

Uait  for  COmODORE  key 

Wait  for  CONTROL  key 


.iiAiiia7.^6a 

.UAIlia7..64 

.(lftI1653.aL.l  lfiir_rel£asel]. 

.Hail653.c2L,l  i.fAr_r£l£asel]. 

ilftlTe53,4i,i   <f«r   r«\ease>l 


Well  there  s  this  issue's  listing  of  POKEs  &  PEEKs  (SYSs  &  WAITS)  Ton  can  see  thoiisan<ls 
ot  emptY  spaces  tor  various  computers.  SorrY  to  all  PET,  SuperPET,  and  CBMers  oat 

there.  At  this  point  I  hav«  no  mformtion—  if  anyMic  has  any  info  of  any  kind  to  share  let  m  know.  I  90  to  TVBUQ  Mcatings  and  right 
now  that's  th«  only  way  to  g<t  a  hold  of  m.  I  pr«f«r  gcoVrit*  docuM«nts,  Sp««dscript,  PiMt  systM,  Th<  Vrlt«r  ^asy  Vorking),  Th«  Printed 
Vord,  Papcrbad^  Vriter—  ok  just  about  any  format.  If  you  want  your  disks  baek  sinply  writ*  soiMthing  to  that  «ff«et  on  th«  disk  so«i«wh«r« 
I<dgibl4.  Sorry,  unl«ss  you  give  th<  $1.67  for  posted  plus  a  mailer,  I  can't  Rkail  it  to  you. 


O    E:9C«-CH«»<275:QPE.Nl,'V:f>RINT«l  ,  E:SC«CMR«<B«^  >e9C»CHR«<  J.  26>  •'3"CHR«<2>eSC«"eO"S::SC«CHR«<eS  >CM««Cfi>  :  :CH01  :i   iar:PR£NT«l  -CI  USn-ENO 
1.      f,«:-'riNY      1.18  1" 

:rf:m  KBCftPr 

:rem  opkn  channel  i  on  device  a 

:Ref1  RESET    printer 

:REM  pica  compressed  <17  CP1> 

:rem  select  subscript 

:REM  line  spacing  CB/l?  INCFO 

:Rt»1  NEXT  COMMAND  TO  PRINTER  <L18T> 

:Rt;M  close  <kxit  ci.  kan> 


2  e:rc*-ch««<:;'7> 

3  OPENl  ,* 

^  PRINTttl ,E8C«CHR»<B4>; 

S  PRINTttX ,ESC«CHR«<126>"a"CMR»<2> 

B  PRINTtn  ,Er.3C«"30"; 

7  PRINIttl ,rBC«CHR»<GS>CHR*<8>; 

B  CMOl :LI8T 

5)  F>WINTni  :cL  OBt:  1 

ttH  It     »u     un     nn 

It      ti  ttttttitttuti      tt 
It  tt      tttt 

n  n        u 


un 


20  r<fn 

30  REM 
<V0  REH 

SO  RFM 

fio  Rr-:ri 

70  REM 

BO  REM 

90  REM 

100  END:  COPYRIGHT  1.39Z  OK  rci  DIB  TRIBUTE  BUT  NOT  SELL 

11.0  BRIAN  L  CROSTHWAITE 

17.0    908  N  7TH  8TREET 

130  80IBE  TO  B3702 


tt» 


tt 
Ittttt 


tt     ttH»tt 


BRIAN  L  CROSTHWAITE 

SET  UP  POR  EPSON  PXSS  MODE  ON  AN  MP91270 

tRC»-CHR«<27> 

EOC»CHR»<B4>  9 

ESC«CHR«<126>"3"CHR«C2>        PI 

E9Ct"90-  80 

l';»CVCHR«<6<ri>CHR«<i9>  A 


0  ESC$»CHR$( 27 ) : OPENl , 4 : PRINT#1 , ESC$CHR$(64) ESC$CHR$( 126) 
HR$(65)CHR$(6); tCMDl : LIST: PRINT#1 :CL0SE1 t END 

1  A$»"TINY   LIST" 


3"CHR$ ( 2 ) ESC$"SO"ESC$C 


ESC$«CHR$(27) 

OPENl, 4 

PRINT#1 . ESC$CHR$ ( 64 ) ; 

PRINT#1,ESC$CHR$(126)"3"CHR$(2); 

PRINT#1,ESC$"S0"; 

PRINT#1 , BSC$CHR$ ( 65 ) CHR$ ( 6 ) ; 

CMDl:LIST 

PRINT#1!CL0SE1 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 


2 

3 

4 

5 

6 

7 

8 

9 

10 

20 

30 

40 

50 

60 

70 

80 

90   REM 


REM  ESCAPE 

REM  OPEN  CHANNEL    1    ON   DEVICE   4 

REM  RESET  PRINTER 

REM  PICA   COMPRESSED    (17    CPI) 

REM  SELECT   SUBSCRIPT 

REM  LINE  SPACING    (6/17    INCH) 

REM  NEXT  COMMAND  TO  PRINTER    (LIST) 

REM  CLOSE    (EXIT  CLEAN) 


## 


# 
# 

# 


## 


#    «# 

## 

«# 

##  #  # 

#  # 

#    # 

#    ## 

#« 

# 

#      # 

# 

# 

#      # 

# 

# 

#      # 

# 

# 

###    # 

# 

#### 

BRIAN   L  CROSTHWAITE 

SET   UP   FOR   EPSON   FX85  MODE   ON   AN  MPS1270 

BSC$«CHR$(27) 

ESC$CHR$(64)  @ 

ESC$CHR$(126)'*3"CHR$(2)  PI 

ESC$*'SO'*  SO 

ESC$CHR$(65)CHR$(6)  A 


* 
* 

* 


««******«**««*******«*«««*««««««**»**««r*««*«««tf*«**«*»********««« 


100  END: COPYRIGHT    1992    OK   TO   DISTRIBUTE   BUT   NOT   SELL 

110  BRIAN   L   CROSTHWAITE 

120  908   N    7TH   STREET 

130  BOISE   ID   83702 


0  E8C«=CMR«<27>:0PCNl,4:PRXMTItl,e8C»CHR#<6^>e8C*CHR«<l26>"3"CHH«<2>ESC»"80»»E8C#CHft»<6B>CMRt<8>;:C»0i:LI8T:PRXNT«l:CL09El:END 

1  A*="TIHY  LIST" 

E8CAPE 

OPEN  CHANNEL  1  ON  OEUZCE  4 
RE8ST  f»R INTER 
PXCH  COnPRESSED  <17  CPX> 
SELECT  eU88CRXPT 
LXNE  8PACXN0  <6/17  XNCH) 
NEXT  CONHANO  TO  PRINTER  <LI8T> 
0L08E  <EKXT  CLEAN > 


2  E8C«=CHR«<27>  :RCH 

3  QPeNl,4  :REM 

4  PRINTttl,£8C«CHRS<64>;  :REN 

5  PRINTttl,ESCttCHR«<126>"3"CHR8<2>;     :REH 

6  PRlNTItl,eeC«"80";  2REM 

7  PRINTttl,EGC«CHR«<6S>CHR»<8>;  :REH 

Q  cmdi:li9T  :reh 

£)  PRINTt»l:CLQ8El  :REN 
10    REM    •.«i.«-««ii«i«i.--«ii«««nw«i«i«« 


M     tt 


20    REM     n        tilt 

30    REM    «    tt       H 

4-0    REM    M    tt 

SO    REM 

BO    REM 

70    REM 

SO    REM 

90    REM    •««««i»«»i.»t«i.«i.«i.*«-«i.«*«««i««iti.i.ii»iiw-«ii*-««Mm.« 

JOO  END:C0PVRI0HT  1992  ok  to  distribute  but  NOT  SELL 

110  BRIAN  L  CROSTHyAITE 

120  90B  N  YTH  STREET 

130  BDI9E  ID  B3702 


tttt 


tt  tttt  tttt       tttt 

tttt    tt    tt  tt    tt    tl  tt 

tt  tttt  tttt             tl 

tt  tt  tt          tl 

tt  tt  tt       tt 

tt  tl  tt    tl 

titttt  tl  tl    titttlll 


BRIAN    L    CROSTHWAITE 

SET    UP    FOR    EP80N    FK8S    NODE    ON    AN    MPS I 270 

E8CBsCHRB<27> 

E8C«CHRB<64.>  8 

e8CBCHR«<126>''3"CMRB<2>  PI 

Eac»"eo"  so 

E6CBCHRB<6S>CHR»C6>  A 


